/*
 * buffered file I/O
 * Copyright (c) 2001 Fabrice Bellard
 *
 * This file is part of FFmpeg.
 *
 * FFmpeg is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * FFmpeg is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with FFmpeg; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

#include "libavutil/avstring.h"
#include "libavutil/internal.h"
#include "libavutil/atomic.h"
#include "libavutil/opt.h"
#include "avformat.h"
#if HAVE_DIRENT_H
#include <dirent.h>
#endif
#include <fcntl.h>
#if HAVE_IO_H
#include <io.h>
#endif
#if HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <sys/stat.h>
#include <stdlib.h>
#include "os_support.h"
#include "url.h"
#include <sys/time.h>

/* Some systems may not have S_ISFIFO */
#ifndef S_ISFIFO
#  ifdef S_IFIFO
#    define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO)
#  else
#    define S_ISFIFO(m) 0
#  endif
#endif

/* Not available in POSIX.1-1996 */
#ifndef S_ISLNK
#  ifdef S_IFLNK
#    define S_ISLNK(m) (((m) & S_IFLNK) == S_IFLNK)
#  else
#    define S_ISLNK(m) 0
#  endif
#endif

/* Not available in POSIX.1-1996 */
#ifndef S_ISSOCK
#  ifdef S_IFSOCK
#    define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK)
#  else
#    define S_ISSOCK(m) 0
#  endif
#endif

/* standard file protocol */

typedef struct FileContext {
    const AVClass *class;
    int fd;
    int trunc;
    int blocksize;
    long pos;
    long read_err_cb;
    long write_err_cb;
    int index;
#if HAVE_DIRENT_H
    DIR *dir;
#endif
} FileContext;

static const AVOption file_options[] = {
    { "truncate", "truncate existing files on write", offsetof(FileContext, trunc), AV_OPT_TYPE_INT, { .i64 = 1 }, 0, 1, AV_OPT_FLAG_ENCODING_PARAM },
    { "write_err_cb", "write error callback", offsetof(FileContext, write_err_cb), AV_OPT_TYPE_INT64, { .i64 = 0 }, 0, INT64_MAX, AV_OPT_FLAG_ENCODING_PARAM },
    { "read_err_cb", "read error callback", offsetof(FileContext, read_err_cb), AV_OPT_TYPE_INT64, { .i64 = 0 }, 0, INT64_MAX, AV_OPT_FLAG_DECODING_PARAM },
    { "index", "index", offsetof(FileContext, index), AV_OPT_TYPE_INT64, { .i64 = 0 }, 0, 6, AV_OPT_FLAG_DECODING_PARAM },
    { "blocksize", "set I/O operation maximum block size", offsetof(FileContext, blocksize), AV_OPT_TYPE_INT, { .i64 = INT_MAX }, 1, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM },
    { NULL }
};

static const AVOption pipe_options[] = {
    { "blocksize", "set I/O operation maximum block size", offsetof(FileContext, blocksize), AV_OPT_TYPE_INT, { .i64 = INT_MAX }, 1, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM },
    { NULL }
};

static const AVClass file_class = {
    .class_name = "file",
    .item_name  = av_default_item_name,
    .option     = file_options,
    .version    = LIBAVUTIL_VERSION_INT,
};

static const AVClass pipe_class = {
    .class_name = "pipe",
    .item_name  = av_default_item_name,
    .option     = pipe_options,
    .version    = LIBAVUTIL_VERSION_INT,
};

typedef int (*ERR_CB)(int err, const char* filename); 

static volatile int g_flag = 0;
static int g_over = 0;
static URLContext* g_ctx[7] = {NULL};

static void tlog(const char* fmt, ...)
{
    struct timeval tv;  
    struct tm *tmt;
    va_list arg;
    FILE* fp;

    gettimeofday(&tv, NULL);
    tmt = localtime(&tv.tv_sec);

    printf("%04d-%02d-%02d %02d:%02d:%02d:%06ld ", 
        tmt->tm_year + 1900,
        tmt->tm_mon + 1,
        tmt->tm_mday,
        tmt->tm_hour,
        tmt->tm_min,
        tmt->tm_sec,
        tv.tv_usec);

    va_start(arg, fmt);	
    vprintf(fmt, arg);
    va_end(arg);
    printf("\n");

    fp = fopen("/sdcard/camera_log/error.txt", "at+");
    if (fp == NULL)
    {
        printf("log file open fail\n");
        return;
    }

    fprintf(fp, "%04d-%02d-%02d %02d:%02d:%02d:%06ld",
        tmt->tm_year + 1900,
        tmt->tm_mon + 1,
        tmt->tm_mday,
        tmt->tm_hour,
        tmt->tm_min,
        tmt->tm_sec,
        tv.tv_usec);
    
    va_start(arg, fmt);
    vfprintf(fp, fmt, arg);
    va_end(arg);
    fprintf(fp, "\n");

    fclose(fp);
}

// static int endpoint_not_connect_read(URLContext* h, int err)
// {
//     int fd = -1;
//     int ret = 0;
//     ERR_CB cb = NULL;
//     FileContext *c = h->priv_data;
//     int retry = 10;
    
//     close(c->fd);
//     c->fd = -1;

//     cb = (ERR_CB)c->read_err_cb;
//     if ((*cb)(err, h->filename)) return err;

//     while (retry--)
//     {
//         errno = 0;
//         fd = avpriv_open(h->filename, O_RDONLY, 0666);
//         if (fd < 0)
//         {
//             tlog("file:%s reopen fail:%d", h->filename, errno);
//             usleep(200*1000);
//             continue;
//         }

//         ret = lseek(fd, c->pos, SEEK_SET);
//         if (ret == -1)
//         {
//             tlog("file:%s lseek errno:%d", h->filename, errno);
//             close(fd);
//             usleep(200*1000);
//             continue;
//         }
//         else if (ret < 0)
//         {
//             tlog("-----file:%s lseek pos:%ld ret:%d errno:%d", h->filename, c->pos, ret, errno);
//         }

//         c->fd = fd;
//         errno = 0;
    
//         tlog("file:%s reopen success pos:%ld", h->filename, c->pos);

//         return 0;
//     }

//     return errno;
// }

// static int endpoint_not_connect_write(URLContext* h, int err)
// {
//     int fd = -1;
//     int ret = 0;
//     ERR_CB cb = NULL;
//     FileContext *c = h->priv_data;
//     //struct stat st;
//     int retry = 10;

//     close(c->fd);
//     c->fd = -1;
    
//     cb = (ERR_CB)c->write_err_cb;
//     if ((*cb)(err, h->filename)) return err;

//     while (retry--)
//     {
//         errno = 0;
//         fd = avpriv_open(h->filename, O_WRONLY, 0666);
//         if (fd < 0)
//         {
//             tlog("file:%s reopen fail:%d", h->filename, errno);
//             usleep(200*1000);
//             continue;
//         }

//         // ret = lseek(fd, 0, SEEK_END);
//         // if (ret == -1)
//         // {
//         //     tlog("file:%s lseek end errno:%d", h->filename, errno);
//         //     close(fd);
//         //     usleep(100*1000);
//         //     continue;
//         // }
//         // else if (ret < 0)
//         // {
//         //     tlog("-----file:%s lseek end ret:%d errno:%d", h->filename, ret, errno);
//         // }
        
//         // ret = fstat(fd, &st);
//         // if (ret == -1)
//         // {
//         //     tlog("file:%s fstat errno:%d", h->filename, errno);
//         //     close(fd);
//         //     usleep(100*1000);
//         //     continue;
//         // }
//         // else if (ret < 0)
//         // {
//         //     tlog("-----file:%s fstat ret:%d errno:%d", h->filename, ret, errno);
//         // }
        
//         ret = lseek(fd, c->pos, SEEK_SET);
//         if (ret == -1)
//         {
//             tlog("file:%s lseek errno:%d", h->filename, errno);
//             close(fd);
//             usleep(200*1000);
//             continue;
//         }
//         else if (ret < 0)
//         {
//             tlog("-----file:%s lseek pos:%ld ret:%d errno:%d", h->filename, c->pos, ret, errno);
//         }

//         c->fd = fd;
//         errno = 0;

//         tlog("file:%s reopen success pos:%ld", h->filename, c->pos);

//         return 0;
//     }

//     return errno;
// }

static void reopen_all(int err)
{
    URLContext* h = NULL;
    FileContext *c = NULL;
    ERR_CB cb = NULL;
    int fd = 0;
    int retry = 0;
    int mode = 0;
    int ret = 0;

    //close all file
    for (int i = 0; i < 7; i++)
    {
        if (!g_ctx[i]) continue;
        h = g_ctx[i];
        c = h->priv_data;

        if (c->read_err_cb) 
        {
            cb = (ERR_CB)c->read_err_cb;
        }
        else if (c->write_err_cb)
        {
            cb = (ERR_CB)c->write_err_cb;
        }
        else
        {
            tlog("file:%s neither read cb nor write cb", h->filename);
            continue;
        }
        close(c->fd);
        c->fd = -1;
    }

    //remount
    if ((*cb)(err, NULL)) 
    {
        avpriv_atomic_int_set(&g_flag, 0);
        g_over = 1;
        return;
    }

    //open all file
    for (int i = 0; i < 7; i++)
    {
        if (!g_ctx[i]) continue;
        h = g_ctx[i];
        c = h->priv_data;

        retry = 10;
        while (retry--)
        {
            errno = 0;
            if (c->read_err_cb) 
            {
                mode = O_RDONLY;
            }
            else if (c->write_err_cb)
            {
                mode = O_WRONLY;
            }
            else
            {
                tlog("file:%s neither read cb nor write cb", h->filename);
                continue;
            }

            fd = avpriv_open(h->filename, mode, 0666);
            if (fd < 0)
            {
                tlog("file:%s reopen fail:%d", h->filename, errno);
                usleep(200*1000);
                continue;
            }

            ret = lseek(fd, c->pos, SEEK_SET);
            if (ret == -1)
            {
                tlog("file:%s lseek errno:%d", h->filename, errno);
                close(fd);
                usleep(200*1000);
                continue;
            }

            c->fd = fd;
        
            tlog("file:%s reopen success pos:%ld", h->filename, c->pos);
            break;
        }

        if (c->fd == -1) 
        {
            tlog("file:%s reopen fail", h->filename);
        }
    }

    avpriv_atomic_int_set(&g_flag, 0);
    g_over = 1;
}

static void do_error(int err, const char* filename)
{
    tlog("file:%s error:%d", filename, err);

    if (avpriv_atomic_int_add_and_fetch(&g_flag, 1) == 1)
    {
        g_over = 0;
        reopen_all(err);
    }
    else
    {
        int retry = 200;//50s
        while (retry--)
        {
            usleep(500*1000);
            if (g_over) break;
        }
    }
    errno = 0;
}

static int file_read(URLContext *h, unsigned char *buf, int size)
{
    FileContext *c = h->priv_data;
    int r;
    size = FFMIN(size, c->blocksize);
    r = read(c->fd, buf, size);

    if ((errno == 107 || errno == 103 || errno == 9) && c->read_err_cb)
    {
        // r = endpoint_not_connect_read(h, errno);
        // if (!r) r = read(c->fd, buf, size);
        do_error(errno, h->filename);
        r = read(c->fd, buf, size);
    }

    if (r >= 0) c->pos += r;

    return (-1 == r)?AVERROR(errno):r;
}

static int file_write(URLContext *h, const unsigned char *buf, int size)
{
    FileContext *c = h->priv_data;
    int r;

    size = FFMIN(size, c->blocksize);
    r = write(c->fd, buf, size);

    if ((errno == 107 || errno == 103 || errno == 9) && c->write_err_cb)
    {
        // r = endpoint_not_connect_write(h, errno);
        // if (!r) r = write(c->fd, buf, size);
        do_error(errno, h->filename);
        r = write(c->fd, buf, size);
    }

    if (r >= 0) c->pos += r;

    return (-1 == r)?AVERROR(errno):r;
}

static int file_get_handle(URLContext *h)
{
    FileContext *c = h->priv_data;
    return c->fd;
}

static int file_check(URLContext *h, int mask)
{
    int ret = 0;
    const char *filename = h->filename;
    av_strstart(filename, "file:", &filename);

    {
#if HAVE_ACCESS && defined(R_OK)
    if (access(filename, F_OK) < 0)
        return AVERROR(errno);
    if (mask&AVIO_FLAG_READ)
        if (access(filename, R_OK) >= 0)
            ret |= AVIO_FLAG_READ;
    if (mask&AVIO_FLAG_WRITE)
        if (access(filename, W_OK) >= 0)
            ret |= AVIO_FLAG_WRITE;
#else
    struct stat st;
    ret = stat(filename, &st);
    if (ret < 0)
        return AVERROR(errno);

    ret |= st.st_mode&S_IRUSR ? mask&AVIO_FLAG_READ  : 0;
    ret |= st.st_mode&S_IWUSR ? mask&AVIO_FLAG_WRITE : 0;
#endif
    }
    return ret;
}

static int file_delete(URLContext *h)
{
#if HAVE_UNISTD_H
    int ret;
    const char *filename = h->filename;
    av_strstart(filename, "file:", &filename);

    ret = rmdir(filename);
    if (ret < 0 && errno == ENOTDIR)
        ret = unlink(filename);
    if (ret < 0)
        return AVERROR(errno);

    return ret;
#else
    return AVERROR(ENOSYS);
#endif /* HAVE_UNISTD_H */
}

static int file_move(URLContext *h_src, URLContext *h_dst)
{
#if HAVE_UNISTD_H
    const char *filename_src = h_src->filename;
    const char *filename_dst = h_dst->filename;
    av_strstart(filename_src, "file:", &filename_src);
    av_strstart(filename_dst, "file:", &filename_dst);

    if (rename(filename_src, filename_dst) < 0)
        return AVERROR(errno);

    return 0;
#else
    return AVERROR(ENOSYS);
#endif /* HAVE_UNISTD_H */
}

#if CONFIG_FILE_PROTOCOL

static int file_open(URLContext *h, const char *filename, int flags)
{
    FileContext *c = h->priv_data;
    int access;
    int fd;
    struct stat st;

    av_strstart(filename, "file:", &filename);

    if (flags & AVIO_FLAG_WRITE && flags & AVIO_FLAG_READ) {
        access = O_CREAT | O_RDWR;
        if (c->trunc)
            access |= O_TRUNC;
    } else if (flags & AVIO_FLAG_WRITE) {
        access = O_CREAT | O_WRONLY;
        if (c->trunc)
            access |= O_TRUNC;
    } else {
        access = O_RDONLY;
    }
#ifdef O_BINARY
    access |= O_BINARY;
#endif
    fd = avpriv_open(filename, access, 0666);
    if (fd == -1)
        return AVERROR(errno);
    c->fd = fd;
    c->pos = 0;

    if (c->read_err_cb || c->write_err_cb)
    {
        if (c->index <= 6 || c->index >= 0)
        {
            g_ctx[c->index] = h;
        }
    }

    h->is_streamed = !fstat(fd, &st) && S_ISFIFO(st.st_mode);

    return 0;
}

/* XXX: use llseek */
static int64_t file_seek(URLContext *h, int64_t pos, int whence)
{
    FileContext *c = h->priv_data;
    int64_t ret;

    if (whence == AVSEEK_SIZE) {
        struct stat st;
        ret = fstat(c->fd, &st);
        return ret < 0 ? AVERROR(errno) : (S_ISFIFO(st.st_mode) ? 0 : st.st_size);
    }

    ret = lseek(c->fd, pos, whence);

    if (ret >= 0)
    {
        if (whence == SEEK_SET) 
        {
            c->pos = pos;
            //printf("file:%s seekset to pos:%ld\n", h->filename, pos);
        }
        else if (whence == SEEK_CUR) 
        {
            c->pos += pos;
            //printf("file:%s seekcur to pos:%ld\n", h->filename, pos);
        }
        else
        {
            //printf("file:%s seekend to pos:%ld\n", h->filename, pos);
        }
    }

    return ret < 0 ? AVERROR(errno) : ret;
}

static int file_close(URLContext *h)
{
    FileContext *c = h->priv_data;
    //fsync(c->fd);
    return close(c->fd);
}

static int file_open_dir(URLContext *h)
{
#if HAVE_LSTAT
    FileContext *c = h->priv_data;

    c->dir = opendir(h->filename);
    if (!c->dir)
        return AVERROR(errno);

    return 0;
#else
    return AVERROR(ENOSYS);
#endif /* HAVE_LSTAT */
}

static int file_read_dir(URLContext *h, AVIODirEntry **next)
{
#if HAVE_LSTAT
    FileContext *c = h->priv_data;
    struct dirent *dir;
    char *fullpath = NULL;

    *next = ff_alloc_dir_entry();
    if (!*next)
        return AVERROR(ENOMEM);
    do {
        errno = 0;
        dir = readdir(c->dir);
        if (!dir) {
            av_freep(next);
            return AVERROR(errno);
        }
    } while (!strcmp(dir->d_name, ".") || !strcmp(dir->d_name, ".."));

    fullpath = av_append_path_component(h->filename, dir->d_name);
    if (fullpath) {
        struct stat st;
        if (!lstat(fullpath, &st)) {
            if (S_ISDIR(st.st_mode))
                (*next)->type = AVIO_ENTRY_DIRECTORY;
            else if (S_ISFIFO(st.st_mode))
                (*next)->type = AVIO_ENTRY_NAMED_PIPE;
            else if (S_ISCHR(st.st_mode))
                (*next)->type = AVIO_ENTRY_CHARACTER_DEVICE;
            else if (S_ISBLK(st.st_mode))
                (*next)->type = AVIO_ENTRY_BLOCK_DEVICE;
            else if (S_ISLNK(st.st_mode))
                (*next)->type = AVIO_ENTRY_SYMBOLIC_LINK;
            else if (S_ISSOCK(st.st_mode))
                (*next)->type = AVIO_ENTRY_SOCKET;
            else if (S_ISREG(st.st_mode))
                (*next)->type = AVIO_ENTRY_FILE;
            else
                (*next)->type = AVIO_ENTRY_UNKNOWN;

            (*next)->group_id = st.st_gid;
            (*next)->user_id = st.st_uid;
            (*next)->size = st.st_size;
            (*next)->filemode = st.st_mode & 0777;
            (*next)->modification_timestamp = INT64_C(1000000) * st.st_mtime;
            (*next)->access_timestamp =  INT64_C(1000000) * st.st_atime;
            (*next)->status_change_timestamp = INT64_C(1000000) * st.st_ctime;
        }
        av_free(fullpath);
    }

    (*next)->name = av_strdup(dir->d_name);
    return 0;
#else
    return AVERROR(ENOSYS);
#endif /* HAVE_LSTAT */
}

static int file_close_dir(URLContext *h)
{
#if HAVE_LSTAT
    FileContext *c = h->priv_data;
    closedir(c->dir);
    return 0;
#else
    return AVERROR(ENOSYS);
#endif /* HAVE_LSTAT */
}

URLProtocol ff_file_protocol = {
    .name                = "file",
    .url_open            = file_open,
    .url_read            = file_read,
    .url_write           = file_write,
    .url_seek            = file_seek,
    .url_close           = file_close,
    .url_get_file_handle = file_get_handle,
    .url_check           = file_check,
    .url_delete          = file_delete,
    .url_move            = file_move,
    .priv_data_size      = sizeof(FileContext),
    .priv_data_class     = &file_class,
    .url_open_dir        = file_open_dir,
    .url_read_dir        = file_read_dir,
    .url_close_dir       = file_close_dir,
};

#endif /* CONFIG_FILE_PROTOCOL */

#if CONFIG_PIPE_PROTOCOL

static int pipe_open(URLContext *h, const char *filename, int flags)
{
    FileContext *c = h->priv_data;
    int fd;
    char *final;
    av_strstart(filename, "pipe:", &filename);

    fd = strtol(filename, &final, 10);
    if((filename == final) || *final ) {/* No digits found, or something like 10ab */
        if (flags & AVIO_FLAG_WRITE) {
            fd = 1;
        } else {
            fd = 0;
        }
    }
#if HAVE_SETMODE
    setmode(fd, O_BINARY);
#endif
    c->fd = fd;
    h->is_streamed = 1;
    return 0;
}

URLProtocol ff_pipe_protocol = {
    .name                = "pipe",
    .url_open            = pipe_open,
    .url_read            = file_read,
    .url_write           = file_write,
    .url_get_file_handle = file_get_handle,
    .url_check           = file_check,
    .priv_data_size      = sizeof(FileContext),
    .priv_data_class     = &pipe_class,
};

#endif /* CONFIG_PIPE_PROTOCOL */
